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This thesis presents a database application in the 
area of inventory management of classified material. 
The system is designed for shipboard application, but 
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ft. INTRODUCTION 


Inventory management of classified material is of 
ZMitolnpOtuantce vow the armed forces of the United 
States. There has been an increasing threat to military 
secrets, which prompted considerable changes in the 
area of inventory management of classified material. 
Much Of this increase can be attributed to the growing 
Sonplexity mor intelligence gathering activities of 
foreign nations; however, this thesis will examine only 
the problem as it relates to inventory management of 
classified publications held by ships in the U.S. Navy. 
For a commanding officer of a ship, it is imperative 
that inventories of classified material be performed 
accurately and effectively. To achieve this goal, the 
Ship’s security manager needs a modern database 
management system that will DEOViidie can accurate 
inventory listing and quick access to information when 
meaquired., 

A modern database management system permits greater 
flexibility in meeting information requirements, faster 
response time, better data security, and easier access 
to stored information than earlier software systems 
although at a greater cost. However, these benefits 
(along with greater accuracy and increase productivity) 
srongly justify the necessary large capital and 
manpower investments. Perhaps the most exciting 
development of such systems is the number of available, 
fasye tO use query-type languages which permit novice 
users to create, update, maintain, and extract 
information from their own files. 

During the database development process, users’ 


requirements are translated into system requirements 


using application programs or the Database Management 
System (DBMS) itself. The normal form concepts of 
relational database models are applied to develop a 
database for the inventory management of classified 
material to be used onboard Naval ships. 

This thesis focuses on a database application for 
maintaning inventories for the Secret custodian. Waa 
this application could be used by both Top Secret and 
secret custodians, it is the intention of this thee 
to concentrate on the Secret custodian’s 1nvVentemm. 
system needs. The Relational Model was applied to 
design this inventory database system. 


II. BACKGROUND 


A. PROBLEM DESCRIPTION AND ORGANIZATION 

oo meaesult Ome thne weleoublicized spy trial of 
former Radioman Senior Chief Whitworth in 1984, the 
Navy launched a more extensive campaign to improve 
accountability of classified materials. Stringent 
standard procedures are published in the Chief of Naval 
Operations bas bp rue tlon 5510.45 Fleet and Type 
Commanders directives. This guidance is incorporated 
into a ship’s own instructions. While these voluminous 
instructions attempt to cover all contingencies, the 
problem encountered by the security managers onboard 
ships was one of trying to manage a large body of 
information with very little assistance in the area of 


inventory management. 


One officer is normally assigned as security 
manager on each Navy ship. One of his many duties is to 
ensure that all classified materials onboard are 


properly accounted for. The security manager normally 
controls any access to Top Secret publications. In 
order to minimize this access, the security manager 
physically must conduct inventories and control access. 

The immediate assistant to the security manager 
with regards to inventory management of classified 
material is the Secret custodian. As the title implies 
the Secret custodian is responsible for all Secret and 
Confidential materials held onboard ship. The Secret 
custodian is normally a junior officer with little or 
no experience in the management of classified material. 

There are three distinct groups of publications: 
"Naval Warface and Allied Tactical", "Intelligence", 


and "Secret" which contains all Secret materials not 


relating to the first or second group. T0 prop one 
manage these inventories, the secret custodian 
assisted by three enlisted personnel as sub-custodians. 
The task of the sub-custodians is to help the secret 


custodian maintain an aceuna we inventory of the 
publications and make required updates whenewes 
necessary. The sub-custodians are assigned lockers 


(safes), for which he or she is responsible. face 
locker (safe ) contains Secret and Confidential 
materials, mostly in binded publications and micro- 
fiche. Files of Secret messages and notes that )beteee 
to the commanding officer and other officers from the 


unit are also kept in the locker. The Navy Hasan 


adopted a standard format for inventorying these 
classified materials at this time, which leads to 
disorganization and resultant difficuiiiitec ia 


determining current inventory in a time saw. 

Although the task of the secret custodian 
considered very >importane and of high military 
liVyeCekesue, it is but a collateral duty which Usage 
takes second place to primary duties. Publicavmen 
updates and deletions are typically put off until therm 
is a slowdown in the operations tempo. This is 
acceptable for the most part; however, this potential 
lack of immediate attention could cause a 1oss or 
misplacement of classified material and result in 
damage to the Navy’s mission and at least a loss of 
face to the men involved. 

The problem is critical both in large anda) cia 
ships. In the first case, there are a™ large number aa 
publications based on ship type. For example, a cCarmeea 
will have an enormous amount of classified publications 
to account for and may have numerous sub-custodians. In 


the second case, the limited number of people that 
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serve on the ship makes the assignment of additional 


duties much more difficult. 


B. GENERAL OVERVIEW OF A DATABASE SYSTEM 
le Introduction 

It was not until the late 1950s that computers 
were successfully used for data management. These 
computers were able to process data quickly and in 
ereac Gduantities; “However, these computers were still 
unsophisticated (limited storage, manipulation, and 
retrieval capabilities). In the middle 1960s, computer 
architecture was radically changed. A large increase in 
the size of computer memory and the introduction of 
operating systems made multi-programming possible, 
which means two or more jobs can be done concurrently. 

Along with multi-programming came the capacity 
to do on-line or single transaction processing. Rather 
than process large volumes of data sequentially, it has 
become economically feasible to access | specific 
information from the computer. By the late 1960s, more 
sophisticated methods of storing and retrieving data 
were incorporated into computer software that gave 
birth to database management as we know it today. 

om Architecture of a Relational Database 


Relational database software organizes data 


into simple tables called relations. Such software 
allows users to create reports by drawing data from 
meeciple tables. This provides a simplicity and 


meexibility of use not easily obtained in non- 
relational database systems. 

The concept of relational database was first 
peplicly proposed by Dr. E. F. Codd in a paper entitled 
"A Relational Model of Data for Large Shared Data 
Banks" [{Ref. 1]. Codd suggested a theoretical method 


for representing data based concepts developed in the 


ee 


field of relational mathematics. Until the early =e 
the ideas were only of theoretical interest. Now there 
are several database management systems available for 
microcomputers based on these relational concepts. Some 
of these include d@BASE III, dBASE III PLUS, R:?Baeece 
Knowledge Man, Ingres, and ORACLE. 

Relational database principles are based on 
relational theory in mathematics. Many of the terms 
used in relational database management software are 
used in relational mathematics. For example, a two- 
Gimensional table is called a relation, where one 
dimension is called a row and the other a cotunm 

In a relational database, each row is called a 
tuple. A tuple comtaitaus data items or entities. The 
more familiar term for a tuple in data processing is a 
record. In a relational database, a collect ionmame 
related tuples or records is called a file. Bigseuresaae 
lllustrates a portion of a relation called SAILOR that 
might be found in the database of a Naval Facility. 

Columns in a relation are called attripg 
which contain data describine the relations In Figgas 
2.1 the attributes are NAME, SSN, DEPT, AGE, angie 
(rotation date). Because there are five attributes in 
eacn “tuple; they are called five-tuples. A relating 
that contains five attributes is called a relatilomien 
Gercree fisvie. A relation that has six columns, creo 
attributes, is said to be of degree six, one with segeg 
attributes, depree Seven 4nG) so sour 

The relation in Figure 2.1 is also referregas 
as a flat file. A flat file is called flat becapeeiae 
has only two dimensions (rows and columns). Also, a 
flat file has no repeating groups om 1tields =eaaq7 
record within a flat file has the “same umber ses 


fields, even if some of them are blank. 


Ie 


All files within a relational database must be 
flat files. In data processing terminology, this means 
that all records within one file must have the same 
number of fields, even though some of the fields may be 
blank for some records. It also means that any file 
within a relational database can be visualized asa 


table with a fixed number of columns. Each column is a 


NAME SSN DEPT AGE PRD 


sec 
9/87 
10/87 
21| 9786 














[Kelley | 12-87-1765 | 06 | 20| ec 
tee | _505-06-7611| 06 | 25 | 9/7 
1187 
126-28-7653 48 


Figure 2.1 A Sailor Relation. 


fixed mumber of columns. Each column is a field 
containing data that either uniquely identifies the 
record or describes the record. If the data uniquely 
identify the record, then that attribute is the Key. 
For example, in Figure 2.1, SSN is the key and NAME, 
DEPT, AGE, and PRD are all attributes that describe a 


particular sailor. 
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Ss Logical vs Physical Models of Databases 


In relational database design a major 
distinction is made between the logical model and 
physical model. A logical model is an abstract 


representation of the entities in the database and the 
relationships between those entities. Figure 2a. 
1llustrates a logical model of satlors assigned in 
divisions of departments. The entities are shown as 
boxes and the relationships as a diamond. The entities 
are called SAILOR and DIVISION and _ stand for sailors 
and divisions of the departments. Records would be Kept 
regarding each sailor and each division of a 
department. SAILOR/DIVISION represents the relation we 
would describe as: A Sailor is assigned to a division 
within a department. Records will be kept regarding the 
sailors assigned to a division. 


Sailor Division 





Figure 2.2 Lopical Model. 


The next stage of the database design is 
the construction of the physical model. A physical 
model is the description of the database in terms of a 
specific database. Figure 2.3 is a physical model of 
the logical model in Figure 2.2. 

A logical model is made without concern for 
the particular structure or restriction of the database 
Management software or computer hardware that will 
process the database. A physical model must be designed 
to work within the constraints of the particular 
hardware and software used, such as’ amount of storage 
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available, maximum file size, Maminme conventions, and 


available commands [Ref. 2]. 


DATABASE USS SHIPS 
RELATION SAILOR 


01 NAME 
02 SSN 


RELATION DIVISION 


01 NAME C 
POSITION C 
WORKSTATION C 


RELATION SAILOR/DIVISION 


01 SSN 
02 NAME 





biepure 2.3 Physical Model: 


leo 


III. SYSTEM ANALYSIS 


A. INTRODUCTION 

System analysis is the process of Sather 
interpreting, and using facts to improve an cCxisiiie 
system through better procedures and techniques vag 
other words, analysis specifies what the system must do 
and should do. 

The first step of the analysis phase is a system 
study which includes the accumulation of information 
relating to the existing system’s capabilities and 
deficiencies. This information may lead to a need for 
new system development or a major improvement to an 
existing system. 

According to J. A. Senn [Ref. 3] the reasons for a 
Project inttilation are. 

a. Greater processing speed 
Better accuracy and improved consistency 
Faster information retrieval 


Reduced cost 


Oo 2.0 


Better” SeCCuriley 

In general, all of the above reasons should be 
satisfied by the new system; however, it is for the 
organization to decide if the new system start Is 


necessary Or 1requireu- 


B; DESCRIPTION OF THE CURREND Ss isie 

The present system on most ships is graphically 
described in Figure 3.1 using a Yourdon’s data flow 
diagram. The circle in the diagram represents 
process being done at the time. An arrow represents ernie 
flow of the data, information, or materials. Ihewumse 


parallel lines represent a data bank or database. 
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Figure 3.1 Present System on Most Ships. 


Le 


The mail which contains classified material is 
delivered to the ship by registered mail. The vshea 


yeoman receives, signs, and distribute the mail to the 
appropriate personnel. In the case of Secret and 
Confidential materials, the secret ~custe@ian will 


receive and sign for custody. The secret custodian then 
sorts and forwards the publications (registered mail) 
to the proper sub-custodians. The sub-custodians check 
the publications for accuracy, completeness, and 
include changes whenever necessary. Each publicat#enm 
will be logged and included in the inventory of the 
sub-custodian’s' safe. Publications are kept and 
organized by document type. Updates and deletions are 
not reflected until update listings are available. The 
publication listings are manually typed and reports are 
not often available when required. 

The sub-custodians are responsible for the physical 
safety of the publications that are under’? thea 
controls. Updates and deletions are manually made and 
indicated on the publications. Publications earmarked 
for destruction are normally grouped with the resto 
the expired publications for future shredding “ang 
incineration. 

Each sub-custodian is required to have a current 
listing of his safe’s inventory. An accurate invenvog, 
listing is normally required semi-annually oy) Mae 
security manager for the purpose of reporting status to 
the executive officer and commanding officer. Inventory 
listings are also required during security inspecvUlom-s 
training inspections, and normal operational 
deployments. 


C. PROPOSED IMPROVEMENT OVER THE CURRENT SYSTEM 
The proposed system is graphically described 
Figure 3.2. The yeoman’s job in process 1 will still be 
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Micmac mmiOwen Chem tne SeGqnet custodian will “have only 
one sub-custodian for all the lockers (safes). Each 
piece of classified material will be assigned a control 
number by the secret custodian. Control numbers will be 
used to uniquely heem bat y each publication or 
classified materials belonging to the secret custodian. 
The sub-custodian will do the data entry and all the 
previously described tasks euriren tally berrormned 


manually. 
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JUSTIFICATION OF A COMPUTERIZED SOLUTION 


The following improvements can be achieved by 


computerized solution or automation: 


a. 


The processing speed will be much faster e232 
eventually simpler. One person should be able to 
perform the whole task effectively. 


ee accuracy in data retrieval can be achieve 


y eliminating the possibility of informatilonme. 
data omission. 


The retrieval and listing of wie ee information 
will be much faster, easier, and real ime. 


In a military environment, the cost of the Manwaa, 
rovided functions auc now easily estimated. 
herevore, -COSse reduction as a requirement Came 

be considered an improvement to the e€xis tive 
System except in terms of man-hours and the number 
of personnel required to do the job. On the .ogies 
hand, the monetary cost of installing a mienro, 
computer system is considered insignificant Sitee 
the proposed system will be désigned to be 
supported by a stand alone micro-computer. 


The level of security will be limited to a few 
system traps and program passwords. However the 
ee security applied to publications will be 
extended to the program software. 


The previously mentioned improvements’) lead to the 


decision that this project is a good candidate fora 
new system development. It satisfies the requirenceme 
for project initiation as stated in the beginnitigees 
this chapter. 


ies 


SYSTEM REQUIREMENTS 


System requirements were determined through a 


series of interviews with users at both sea and shore 


commands. Incorporating users’ and management needs, 


the 


proposed system must be able to satisfy the 


following requirements so that the previously defined 
improvements can be achieved: 


a. 


It must be able to store any information about 
classified material inventory currently helen 
Navy ships. Actual storage may be different iam 
organizations to organizations; however, 
modifications in storage maybe necessary to avoid 
data duplication. 


It must be able_ to provide any stored information 
or combination of stored information upon request. 
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c. it must be easy to use. Personnel with very little 
knowledge about SonpULers should be able to operate 
the system satisfactory. 


qd. It must be Seo! cauee on a stand alone micro- 


computer. Security of data will be managed 
pee ery with a stand alone micro-computer 
system. 


Mec Lasses Olmoys tem Operations 
The system will provide the following four 


classes of operations: 
a. Modification of the Existing Data 
The user of the system should be able to 
insert a new record, to delete an existing one, and to 
modify any record in the supporting system files. 
b. Locker Allocation 
The system Should be able to provide 
different types of publication allocation. For example, 
Certain types of publication will go on certain 
locker(s) and the location of the locker(s). The 
criteria used for each type of publication allocation 


will be described with the corresponding application 


program. 
c. Production of Reports 
A number of application programs will 
support the ft) C Gaon of meee or necessary 


information about publications from the database and 
producing the appropriate lists and reports. 
d. Assistance Operations 

Although the above operations can satisfy 
Moe request of the system, an additional function 
related to the tracking of modifications that have been 
done to the supporting system files is necessary. This 
euavt history will be contained in file "TRACER" in 
Which any modifications of the supported files will be 


recorded with the time, date, and user name. For 
security reasons, this file should not be accessible 
through the main menu or any sub-menu. Also, system 


eal 


access security should be provided at system start-up 
through a password control system. 

A "USERID" file will contain users’ names 
and corresponding passwords. A second "USERLOG" file 
will accumulate the information of all transaction. 
done by the user of the system. Neither file wile 
accessible through the menu system. 

2. Expected Volume of Data 
The volume of data should average approximately 
1600 binded publications, 1000 micro-fiche, 300 binded 
secret notes and several item of other classi 
material, both in binded publication and loose messages 
received during operations. 
3. Kinds of Queries to be Answered 
The database would be entered through the main 
menu. The user could select a file for querying 
updating a specific file. The queries answered through 
the database include the following: 


a. Listing of all publications by locker numbers. 


b. Location of each or a certain publiicaricnue 

c. The sub-custodian of this publications. 

ad. The update of a certain or many publications. 

e. The total number of Secret and Confidential 
material. 

f. The basic allowance list vs current publication 
available onboard. 

g. The total number of publications in Gach Joctew 


h. The destruction record of the last two years. 
4. Relative Update and Retrieval 
The database shall be updated monthly or more 
frequently as the custodian feels necessary. The 
database retrieval activities shall be §pericormeag 
periodically as follows: 
a. Quarterly for inventory purposes. 


b. AS requested or deemed necessary by the custodian 
on higher 420 tno rig. 


ae 


Adobe ronablvyer ad hoc queries shall be performed 
when desired by the security manager and commanding 
oarricen. 


F. INPUT REQUIREMENT 

hice tipi requilrementeare ~the system requirements 
Eucdeprowect plan. these requirements were determined 
through publication instructions, and users’ needs 
through interviews with previous secret custodians and 
staff personnel whose job involved inventory management 
of classified publications. 


Ge OUTPUE REQUIREMENT 

A similar process of acquiring information was 
Semaucted in formulating output requirements. Output 
requirements may be altered by the next user as they 


pop lyeeee the present regulations. 
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IV. RELATIONAL DES Gy 


Logical design is the first major task in the 
design of a database-oriented system. This task will be 
to define the database structure, which is a two-phased 
process. Hirst, the Worwear structure of the database 
is. devetoped: second, the physical design of tre 
database structure is developed. 


A. MODELING 
The essence of database design is the 
representation of record relationshi ps2. 
relationships can be specified using a data structure 
diagram (DSD), commonly called a Bachmann diagram. The 
relationships are identified intuitively. Design was 
conducted on the potential relationships among records 
that have been defined for the system. 
IL. Record Struccure 
In order to satisfy the user’s requirementcea. 
number of records were derived from a publication 
listing held by the secret custodian. Because of 
military security, bogus data and other information 
were entered to the record model instead of real data. 
From the information in the publication record, a 
relation model of the system was built. In this thesis, 
the following records were generated: 
a. PUBS (Ctrl No, S Title, Locker, Class, Up@aae 
Subp cus.) 
Ctrl No: contrel number 
o> Pitle: short st ieee 
Locker: locker number 
Class: classification 
Update: last update vwdoene 
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sub Cust: sub-custodian 


Peep ome  (selupbe, L fitle, Allowance, 
Onboard, Doc_Type) 
pple short title 
belittle. grong. title 
Allowance: allowance for ship 
Onboard: onboard publications 
Doe Type: document type 
SeeeDEOLTRUCT “(Ctrl No, S_Title, D Destruct ) 
Ctrl No: control number 
Se iire . SoOrum@rl tlre 
Pebestruicue:, date of destruction 
d. USERID (Name, Password ) 
Name: name of user 
Password: password of user 
e. USERLOG (Logdate, Logtime, Name, Task, 
Progname ) 
Logdate: logged date 
Logtime: logged time 
Name: name of user 
Task: task performed 


Progname: program names accessed 


Underlined field(s) in the record are the key. 
Precise information about each field is in the Data 
Peetionary in Section B of this chapter. 

2a. Record Relationship Diagram 

DSD was used for the representation of record 
memactionships. Each relation described in the above 
section and Figure 4.1 is in third normal form (3NF). 
This means that each tuple or record of each relation 
consists of a primary key value that identifies some 
entity, together with a set of mutually independent 


Values that described the record in some way. For 
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consists of a primary key value that identifies some 
entity, together with a set of mutually Trideperndaae 
values that described the record in “some uway em 
example, the key in the PUBSINFO relationw@d@escr ie 
unique tuple within that relation. The single or dou 
arrow notation is used to express relationsnip bdDetyeen 
records (one-to-one, and many-to-many relationships) 
shown inv EP iecure =. i 







PUBSINFO 


DESTRUCT 


USERID USERLOG 





Figure 4.1 Data Structure Diagram (DSD). 
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Eee DATA DICTIONARY 

Micmac a ett Theomary 1c tne collection of correct 
information about the words and terms used by the 
SEeamizawlOonmun Order to describe its data. The term 
data dictionary is used to indicate a set of files or a 


database. The data dictionary for this thesis is: 


Field Name: Ctrl _No 

mermact: character 

Bara th: 5 

mlowable value: less than 50,000 


Meeeription: Numeric, character plus numeric 


feelad Name: S Title 

mommnatk: character 

Width: 20 

Allowable value: short title, originator’s name 


Meceeription: short title of publications 


Perec ld name: L Title 

Format: character 

Width: 40 

Allowable value: long title, subject name 
Weseription: long title of publications 


Field name: Locker 

Format: character 

math: 1 

Allowable value: characters, numbers 


Description: locker id (i.e., locker 2) 
Field name: Class 
Format: character 


Width: 9 


2h 


Allowable value: SECRET, CONF, UNCLASS 
Description: publication classiftceaguen 


Field name: Update 

Format: date 

Width: 8 

Allowable value: MM/DD/YY 
Description: date of last update 


Field name. esubecust 

Format: character 

Widely 1:2 

Allowable value: last name, initials, rank 


Description: last name and rank of person 


Field name: Allowance 
Format: numeric 

Width: 4 

Allowable value: 0 to 9999 


Description: number of publication required 


Field name: Onboard 
Format: numeric 

Width: 4 

Allowable value: O to 9999 


Description: number of publication onboard 


Field name: Doc. lype 

Format: character 

Wiech: 7 

Allowable value: NTP/ATP, SECRET, INTEL 
Description: publication by document type 


Pield name: DD Destruce 


Format: date 


28 


Width: $$ 
Allowable value: MM/DD/YY 
Description: destruction date 


Field name: Name 

Format: character 

Width: 12 

Allowable value: last name and rank 


Description: sub-custodian’s name and rank 


Field name: Password 

Fromat: character 

Width: 8 

Allowable value: numeric, alpha-numeric, characters 


Description: user’s access code 


Field name: Task 

Format: character 

Width: 10 

Allowable value: INSERTION, LIST, and other tasks 


Description: program task performed by each user 


Field name: Progname 

Format: character 

Width: 10 

Allowable value: ADD PUBS, and other program names 


Description: program names in this thesis 


PLreld name: Logdate 
Format: date 

Width: 8 

Allowable value: MM/DD/YY 


Description: date when the task was performed 


Field name: Logtime 
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Format: Character 
Width: 5 
Allowable value: HR:MN 


Description: time when the task was performed 
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We IMPLEMENTATION 


A. INTRODUCTION 

The introduction of a database as7 the central 
reservoir of data changes the organization’s attitude 
with regard to data requirements and its management. 
This creates new skills to be learned and a need fora 
peed implementation scheme. In this chapter, the issues 
of shipboard implementation and database administration 


are discuss. 


B. SHIPBOARD IMPLEMENTATION 

The implementation of a new system or a change in 
the old ways of doing things in an organization usually 
receives resistance and skepticism from the personnel 
involved; however, the security manager onboard a ship 
can easily overcome these problems due to the 
relatively small size of his department. The security 
manager and secret custodian must be aware of these 
implementation problems in order to correct problems as 
they arise. 

security consideration with regard to the TEMPEST 
requirements must be checked periodically. Although 
TEMPEST requirements do not apply to the application 
program in its present form, the security manager must 
Keep abreast with any change in requirements. Quarterly 
Mmeaining must be conducted in house for all users. A 
duplicate copy of database files (such as PUBS.DBF, 
PUBSINFO.DBF, and DESTRUCT.DBF) must be retrieved 
weekly for data accuracy and auditing. Program and 
backup disks must be stored in the safe for better 
Security. 


on 


Finally, shipboard implemtation must be plannecdwam. 
monitored in order to make immediate changes when 
necessary. The users (sub-custodians) must be capable 
of learning the basic knowledge on how to use the 
proposed software program and the application program 
ine this wtne sic. 

1% Software Requirement for System Iimplementatit@g 

The dBASE III PLUS, which will be used for@aae 
implementation of the publication inventory system 
under ‘discussion, is a relational DBMS for mpenee 
computers. It contains its own extremely power am 
programming language which permits the user’ to easily 
create his own application programs regardless of 
Comp Lexi. 

2. Hardware Requirement for System implementatiga 

The system can Operace on a 16-bit 
microcomputer that uses MS DOS, PC DOS version 2.03iia. 
a newer version. For example, it could be an IBM PCa. 
an IBM PC/XT/AT or any other 16-bit microcomputer fully 
compatible with one of the above mentioned nie wee 
COMpULEr s*. 

256K of random access memory (RAM) is the 
minimum requirement of the supporting database packages 
The best configuration is one disk drive and one hag 
drive disk. A 10M (megabytes) hard disk is recommended 
because ict is the most common, inexpens 1 yee and 
reasonable configuration of a microcomputer. Although a 
hard disk is not required (because all files and 
application programs can be stored on a floppy disk 
based system), a hard disk will greatly improve the 
ECxeeCurelon. ~tame Ot wie programs used in. oighsigs 
application. Any 80 column printer able to intenmiage. 


with the above mentioned microcomputers can be used. 
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C. DATABASE ADMINISTRATION 

To facilitate effective use of the database, most 
organizations have staffed a position (and office) of 
database administration (DBA). This person is 
responsible for protecting the database while at the 
same time maximizing benefits to users [Ref. 4]. 

The secret custodian should be assigned as DBA. The 
DBA will be responsible for the accuracy, consistency, 
mice timetiness of the data file. This function will 
megurre the secret custodian to provide database 
standards and enforce data activity policy. Therefore, 
mimes Secret Custodian must @€E@ducate himself in order to 


effectively manage the database resources. 
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VI. SAMPLE PROGRAM PROCESSING 


The proposed inventory management system is a menu 
driven program organized along functional lines. Each 
major function in the system corresponds to a section 
of this chapter and selection from the main menu. This 
chapter will incorporate the instruction on how to run 
the system; thus, it will serve as a substitute for the 
user’s manual. 

There is also ae section in this chaptereaw 
discusses MAINPROG (or main program menu). It is 
important to read this section before starting to use 
the inventory management system since it describes in 
detail how to include the user’s name in the access 
list of the program. 

This manual is tailored to users with some 
knowledge in microcomputers. The steps to start the 
system are as follows: 

a. Copy the two dBASE III PLUS d 

a eee. the) seri oi nay ae 

b. At "C>" type "bdase" (no quotes needed) and then 


strike the return key. Once the  system_is loaded 
strike the return key once more. This will take you 


to the "assist" mode. You must get out of the 
assist mode _ by pressing the "esc" key. The "." (dot 
Oa will appear on the screen. yi0e " set defa 
oa no quotes needed) and then h the return 


key. Now you are ready to use the system. 


CA AL wtiiiks oint, type "do mainprog" followed b 
e a UssS= at . _ 


carriage return. ‘ ag will appear 
momentarily then a brief greeting by the system. 
The system will rompt you for your own user’s 


identification (to access the system see section 
MAINPROG of this SRADEEE 


d. Follow the command messages which appear on the 
screen. The various options of the main function of 


the system are listed in the main menu. Select the 
number and follow the command message on the 
screen. 
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A. MAINPROG 
The MAINPROG program has two functions: first, it 
will ask the user for his own access code or password. 
Once the user has succesfully logged into the system, a 
Mistory Of the user’s session will be kept in the 
Miche LOG' file. To enter an authorized user: 
a. TYPE "assist" at the "."{(dot prompt) of bBASE III 


Select the "Set Database file" 

Selects a sdrive, then select USERID. DBF 
se lect."Update”, then select append 
Enter the username and password 

Save the new information (Ctrl-End) 


Do step 1 to 3 and USERLOG. DBF 
) Do step 4. Enter username and save 


SG) ety) COs ecto 


second, the main program will prompt the user with 
mest ratentforward menu driven selection process. The 
selection process does not require further information 
rom the user. 

The MAINPROG program presents the main menu on the 
screen(Figure 6.1). There are a total of six options. 
imienuscer must refer to the respective section of this 
chapter for further information about the option in the 
menu. 


MAIN MENU 
i. HEE 
2. UPDATE DATABASE 
3. REPORT GENERATOR 
4. ADHOC REQUEST 
9. END OF DATABASE 
oe EXTT TO DOS 


EP Paeero ler ft) )) =>: 


Pi sure. 6 = 1 Main Menu. 
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Bee eae 

The help function allows the user (060 have on-iae 
assitance while running the pregrai This help mena 
(Figure 6.2) will only be accessible from the main 


menu. 


HELP MENU 


COD 


Figure 6.2 HeWpevenu- 


Cs UPDATE DATABASE 

The update database function allows the user to 
add, edit, and delete any files in the menu provided in 
Piscure two. 2. It is very important for the uUserperea. 
exact with the information entered in the database 
because a mistake could have far-reaching implications 
to the validity of the data in the database. 


UPDATE DATABASE MENU 


NHN 
ejlele 


NIOOUPWDFH 
HDS SHHH 
x MOOBZAZAS 
=] es | es| a7 \es ee) 
Q WN 
tr] ej] 
AW IHHH 
SeooZa =, 
WeSynH4 


OO 2ARDAAA 
”N 


ENTER CH 


hr 


E 


I 
Vv 
ee 


Figure 6.3 Update Database Menu 
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u lee polcemunelolen i) avo lmsert rubs Record 


This allows Tike user to insert a new 
Pup wioatton tnethe PUBS. DBR file. The user must be very 
careful when inserting the information into database. A 
fonvurol number must be provided by the user. The system 
will search for any duplication of control number in 
the database and will not allow the user’ to duplicate 
this number. Figure 6.4 shows the initial screen that 


“ont appear artter the option 1 was selected. 


ADD NEW RECORD TO PUBS FILE 


ENTER CONTROL NUMBER => 99999 


Figure 6.4 Query to Insert Pubs Record. 


D. REPORT GENERATOR 

The report function allows the user’ to obtain 
detail information about the inventory level of the all 
Gi@e publications. The user can access this section 
through the main menu. Figure 6.5 shows the "Database 


Report Generator Menu". 


DATABASE REPORT GENERATOR MENU 


uk ALLOWANCE LISTING OF PUBLICATION 
2 PUPAE CAL LISTING OF PUBLICATION 
3 Pio One PURETeCATIONS BY LOCATION 
4 LIST OF PUBLICATIONS BY CLASSIFICATION 
5 LIST OF DESTRUCTION RECORDS 
6 EXIT TO MAIN MAIN MENU 
PNTER CHOICE => 


Figure 6.5 Database Report Generator Menu. 


3/7 


Le select Option 1 to Get Al loWancem ine 
This section provides sa) list of "publication 


sorted by document type with the correspondiige 
allowance versus onboard listing. The output 1S" sigan 
below (Figure 6.6). 


Page No. 1 
09/24/87 
USS BATTLESHIP REPORT 
SORTED BY DOCUMENT TYPE 
SHORT TITLE ALLOWANCE ONBOARD 


eee ee ee ee ee ee 
—<—_ 
—— = = ae ae oe — ee ee eee a ee ee — 
— ee ee ee es ee ee ee ee ee ee ee 


OPNAVINST 1120.1G 1 1 
SURFACINST 2210 2 2 
eee Total ee 


Figure 6.6 List of Publication Sorted by Document Type. 


Es  ADHOC REGQUBST 

The adhoc function allows the users to do special 
query on a spectfic publication. Although not alias 
the possible queries were provided, the user wit 
able to do basic inquiries from this menu. Fisuresia 
shows the available selection from the “Database Adhoc 


Menu". 


Wwwwwww WWWWWWWWWWWWWWWWwwwwwwwwwwwwwwwwwwwwwwwww 


DATABASE ADHOC MENU 
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW WWW WWW WWW 


1. LOCATION OF SPECIFIC PUB ICAis 
2. SUB-CUSTODIAN OF A PUBLICGATIO 
3. ALLOWANCE OF SPECIFIC PUBL IGAT IO 
4. CLASSIFICATION OF SPECIFIC PUBLICATION 
5. LAST UPDATE OF CERTAIN PUBET CATION 
ENTER Ch Pers = 
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWwWWwWwWwwWwwwWwWWw WWW www 


Figure 6.7 Database Adhoc Menu. 
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VII. CONCLUSION 


The purpose of this study was to develop a database 
system model suitable for implementation onboard Naval 
ships, and to aid in the inventory management of 
classified material in this environment. 

The developed system must be considered a prototype 
model which may need further modification and extension 
mimorcder FLO fit a specific user’s need. Although the 
system must be considered a prototype in its present 
form, the application program will perform all the 
basic jobs OnaeLC sub-custodian with regard _ to 
inventory management. 

since ABASE III PLUS was used in the application 
program of this thesis, a relational database must be 
used. A brief discussion of relational database model 
was reviewed in Chapter I1, in order to give the user 
basic Knowledge of the model. 

The system is menu driven. Therefore, inci OL 
only easy to use but also easy to modify, since both 
the user and programmer are directed to the desired 
point through the sequence of menus and sub-menus. 

Finally, it is up to the security manager and 
Secret custodian to monitor the effectiveness of this 
Sepelication program during the initial implementation 
Stage and throughout its life cycle. 
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APPENDIX B 


PROGRAM 


A. MAIN PROGRAM 


HH HH OH OH OE OE OE OE EE EOE EH OH OH OH OH PROGRAM MAINPROG HHHHHHHHH HH HM HHH 


* This is the main program, which controls the operation of 
‘the entire database system. 


CLEAR 
* Initialization of the basic dBASE III functions 


SET TALK OFF 

SET BELL OFF 

Set DELIMITER OFF 
SET HEADING OFF 
SET EXACT ON 


* declare global variables 


PUBLIC psw 


SIORE ’ ’ TO psw 

@ 5,18 SAY ’mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ’” 
Geol GS SAY *: Security Manager dBASE Program :”’ 
@ 7,18 SAY ’mmmmmmmmmmmmmmmmmmmmmmmmmmmmmnmmmmm ’ 
@ 56,18 SAY ’: oe 
O@meo, 18S SAY ’ : 
Memeo, iS SAY *:; Please enter your : 
Omer ,18 SAY ” ; 
@mt2,18 SAY ° S$S$SSSSSS : 
@ 13,18 SAY ’wWwwWWWWWWWWWWWWWWWWWWWWWWWWWWWW - 


* 


Check user’s authorization 


@ 12,28 SAY ’PASSWORD -»>’ 
SET CONSOLE OFF 
ACCEPT TO psw 
SET CONSOLE ON 
USE userid 
LOCATE FOR password = UPPER (psw) 


peemauthorized user. Exit to dBASE operating system. 
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IF EOF () 
SEL COLOR TO" Ws 
@ 12,28 SAY ’ UNAUTHORIZED USER ’ 
DO delay 
SET COLOR TO W 
OUT 
ENDIF 


* Authorized user 


SLORE @7% 7 Oe inaden 
DO flag 

DO delay 

DO headings 


DO WHILE UPPER (inain ) =" y" 
DO mmenu 
* Perform appropriate function depending On USEr Sena 
DO CASE 
CASE selection 
DO dbhelp 
CASE selection = 2 
DO update 
CASE selection = 3 
DO report 
CASE selection = 4 
DO adhoc 
CASE selection = 5 
STORE ’N’ TO main 
CASE selection = 6 
CLEAR 
OULE 


1 


ENDCASE 
ENDDO 
SET TALK ON 
SET DELIMITER ON 
SET EXACT OFF 
SET HEADING ON 
SEY BELLE ON 
CLEAR ALL 
RETURN 


* eof mainprog.prg 
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1. Main Menu 


HHHHMNHHHHHNHHH MH HHH HHH PROGRAM MMENUM HHHHHHHKHHHHHHH HHH HH OH 


* This program displays the system Main-Menu on the screen 


LEAR 

SET TALK OFF 

PUBLIC selection 
STORE O TO selection 


@ 4,22 SAY ’WWWWWWWWWWWWWWWWWWWWWWWw ” 
@ feeac. oAY * mm mm ’ 
@ 6,22 SAY *WwWWWWWWWWWWWWWWWWWWWWWWw ” 


el COLOR TO W* 
@ 5,30 SAY ’MAIN MENU’ 
SET COLOR TO W 


@ 7,18 SAY *’WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwV ” 
@ eels mAY ’*: oe 
@ Be 1S SAY °’ 1. HELP/DOCUMENTATION ’ 
CmetlO,18 SAY ’ 2. UPDATE DATABASE : 
@ 11,18 SAY ’: 3. REPORT GENERATOR vn 
@ 12,18 SAY ’: 4. ADHOC REQUESTS 3 
Gero, 1S SAY ’: 5. END OF DATABASE ee 
@ 14,18 SAY ’ OLE K IT TODOS : 
Ceeetoa., lS SAY ’ , 
@ 16,18 SAY °’ : 
ome? 1S& SAY ’: oe 
@ 18,18 SAY ’wWwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwW ” 


SET COLOR TO W+ 

@ 17,20 SAY ’ENTER CHOICE (1-6) =>: ’GET selection; 
miei)’ 9’ RANGE 1,6 

READ 


SET COLOR TO W 
SET TALK OFF 
CLEAR 

RETURN 


-eOor Mmmenu.preg 
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ane Update Sub enw 


H#HHRHHKHHHMHHKHHMHKMHKHHMH KKH HMM PROGRAM UPDTMENU HHHHHKHKHKHHHKHKHKHKRHHKH MK KM MOK 
* This program display on the screen the update sud-meng 


CLEAR 
PUBETC 21peode 
STORE OQ TO upcode 


@ 4,18 SAY ’ Ww’ 
@ 34 SSA ie: 24 
O 6,13 SAY Ww’ 


Set COLOR “LOW 
@ 5,30 SAY ’ DATABASE UPDATE MENU’ 
SET COLOR TO W 


@ /,18 SAY ’ WWWW ’ 
@ SS 75a. 7 
@ 9,18 SAY ’:1. INSERT RECORDS INTO PUBS FILE ; 
@ 10,18 SAY °:2. INSERT RECORDS INTO PUBSINEOVE Dee , 
@ 11,18 SAY ’:3. INSERT RECORDS INTO DESTEUC I VEE , 
@ 12,18 SAY °:4. MODIFY RECORDS FROM PUBS FIGE ‘ 
@ 13,18 SAY ’:5. MODIFY RECORDS FROM PUBSINFO FILE a 
@ 14,18 SAY ’:6. DELETE RECORDS FROM PUBS AND PUBSINFO FILES: 
@ 15,18 SAY ’°’:7. EXIT TO MATNBOENU om 
@ 16,18 SAY ”’ ’ 
@ 17,138 SAY) oz 
@ 18,18 SAY ”’ i 
@rt9,13 Save WwW’ 


Sel COLOR Loewe 
@ 17,30 SAY ’ENTER CHOICE =>: ’GET upcode PICT ’9° RANGE. 


READ 
SET COLOR TO W 
CLEAR 
RETURN 


* eof updtmenu 


H#HRHRHKRKRKNRKNHKRKNRKRKNHKNKNRHNH NHK KK PROGRAM UPDATE a Me i 


CLEAR 
SET TALK OFF 
STORE ’ ’ TO updtcont 


PUBLIC upcode 
DO WHILE UPPER(updtcont) # ’N’ 
DO updtmenu 
DO CASE 
CASE upcode = 1 
DO add_pubs 
CASE upcode = 2 
DOS ada inte 
CASE WUpcede.— =. 
DO add_dest 
CASE upcode = 4 
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DO mod_pubs 
CASE upcode = 5 
DO mod_info 
CASE upcode = 6 
DO del_pub 
CASE upcode = 7 
STORE ’N’ TO updtcont 
ENDCASE 
ENDDO 
SET TALK ON 
RETURN 
* eof update.prg 
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(1) Update Programs 


HHHHHKRH HHH HHH HH HHH OH PROGRAM ADD PUBS HHHHHHHHHHHHHHHH HHH HHH HHH 


* This program insert records to PUBS file and records @ie22a 
* data into USERLOG file 


CLEAR 

SET TALK OFF 

* open requirea files for) procescin- 
SELLE Ga 1: 

ok Puss Index *ecoentrol 

SELECT 2 

USE USERID 

SELECT ea 

USE USERLOG 


dispaly a window on the screen 
4,20 SAY ’ 
D500) OAL 
6,20 SAY 
Liao. SAY 
8,20 SAY 
9,20 SAY 
10;,207SAY 
Vi, ZO SAY 
12, cuUyoAy 
13, 2035n. 
14,20 SAY 
£55,420 “SAY 
HoOeZ Oo SAY 
STORES ¥° TOVadameont 
STORE 1. TO dene 
DO WHILE UPPER(add_cont) =’Y’ 
@ 5,30 SAY "ADD NEW RECORD TO" PUCS ae 


w w w we w@ w ww ~~w < w w w 
~~ ~~ w “= = = we ~~ = . w w w 


DHOHQND OHO OHH QHD ODD SN * 


* initialize memory variables 


STORE ” TO. terrane 
STORE ’ TO ts ceieWle 
STORE : TO tiecker 


STORE” : TO tclass 
S LORE. i TO tupdate 
STORE ” , TO tsub_cust 
@ 15,26 SAY ’ENTER CONTROL NUMBER => GET (tetris 
PICT ’°99999’ 
READ 
* check if record exist in PUBS file 
SELLE C Da 
FIND &tetr leie 
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IF EOF () 
* record does not exits in the PUBS file 
* read user’s inputs from the keyboard 
CLEAR 


@ 2,00 TO 14,79 DOUBLE 

@ 5,20 SAY ’ADDING NEW RECORD TO PUBS FILE ’ 

@ 7,20 SAY *’ CONTROL NUMBER GEA tctrisno 

@ 8,20 SAY ’*® SHORT TITLE 20 GHibstscetitle 

@ 9,20 SAY * LOCKER NUMBER >’ GET tlocker 

@ 10,20 SAY ’ CLASSIFICATION ’ GET tclass 

@ 11,20 SAY ’ SUB-CUSTODIAN :’ GET tsub_cust 

@ 12,20 SAY ’ PUB LAST UPDATE:’ GET tupdate PICT ’°99/99/99’ 
READ 


“append new record to PUBS file 

APPEND BLANK 

PeieAcH ctrl no WITH tetril_no,s_title WITH ts _ title 
REPLACE locker WITH tlocker,class WITH tsub_cust 
REPLACE update WITH CTOD(tupdate ) 

SEORE .T. TO done 


* control number exits in the PUBS file 
ELSE 
SET COLOR TO W* 
melo ,a4) SAY ” CONTROL # ALREADY EXIST ; 
DO delay 
SET COLOR TO W 
ENDIF 
SET COLOR TO W+ 
@OmIa,22 SAY ’ MORE INSERTIONS? (Y/N )==> ’ 
READ 
=H) f COLOR TO W 
SET CONSOLE OFF 
WAIT TO add_cont 
SET CONSOLE ON 
ENDDO 


*“ update USERLOG file 

IF done 

sec r 2 

LOCATE FOR password =UPPER(psw) 

SmECT 3 

APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTION’ 
REPLACE progname WITH ’ADD PUBS’ 

REPLACE logdate WITH DATE(),logtime WITH TIME( ) 
ENDIF 

CLEAR 

CLOSE DATABASES 

RETURN 


* eof inserpub.prg 
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HH HHH H HMR HH HHH HHH HM HM OH PROGRAM ADD INFO HH HHH HMM HM HH HHH HH MH OH OH HH 


* This program inserts records to PUBSINFO file and records 
* logsed data into USER EGG Sige 


CLEAR 

SET TALK OFF 

* open required files for processing 
SELECT: 1 

USE, PUBSINFOG index) psa ieee 

Shep i ic 

USE USERID 

SELECi 3 

USE USERLOG 


display a window on the screen 
4,10 SAY ’ W 
BL 0 Fea 
6,10 SAY 
7, 0V Sa 
8,10 SAY 
9,10 SAY 
LOR EO YSAy 
11,10 SAY 
12,0 SAY 
137. LOVSAY 
14,10 SAY 
15,10 SAY 
16,10 SAY 


@ ~~ ] ~@ i] = ~~ ] ~@ ~~ ~@ ~~ 
~ ~~ = = . ~ ~~ «@ J «= ~~ < . 


YVOQOHOQQ OHO AN AN GHONQO#A * 


STORE ’Y’ TO addinfo 
STORE .F. TO done 
DO WHILE UPPER (addinfo) = ’Y’ 
@ 5,18 SAY ’ADD NEW RECORD TO PUBSINFO FILE’ 


* initialize memory variables 


STORE. ” ’ TO ts_titie 

SPORE. ’ TO tl _ Ui 

STORE ~ : TO tallowance 

STORE: * ’ TO tonboard 
STORE ”’ : TO tdoc type 
@ 15,11 SAY ’ SHORT TITLE ==>” GET tsui ee 

READ 


* check if record exist in PUBS ete 
SELECL hl 
FIND &ts title 
IF EOF () 
* record does not exist in PUBSINFO file 
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* read user’s inputs form keyboard 
CLEAR 


@ 2,0G=tO 14,79 DOUBLE 

@ 4,18 SAY ’ADDING NEW RECORD TO PUBSINFO FILE ”’ 
@ alco wee ooORT PiTLE: GET ts title 

@ SpelamoAY LONG TRIER: “GE ti title 

@ 9,12 SAY ’ALLOWANCE: * GET tallowance 

@ 10,12 SAY ’ONBOARD: * GET tonboard 

fee, a SAY ~ DOC-TYPE: ' GEE tadocs type 

READ 


* append new record to PUBSINFO file 

APPEND BLANK 

mene sattulbe WITH ts title, 1 title WITH tl _ title 

REPLACE allowance WITH VAL(tallowance ) 

REPLACE onboard WITH VAL(tonboard ) 

REPLACE doc_type WITH tdoc_type 

STORE .T. TO done 

* short title exist in the PUBSINFO file 
ELSE 

emo, 12 SAY.’ 

SET COLOR TO W* 

Seon te SAY “SHORT TITLE ALREADY EXIST’ 

DO delay 

SET COLOR TO W 


ENDIF 

@515,12 SAY ’ INSERT MORE RECORDS? (Y/N)=>’ 
SET CONSOLE OFF 

WAIT TO addinfo 

SET CONSOLE ON 

ENDDO 


* update USERLOG file 

IF done 

SEEECT 2 

LOCATE FOR password = UPPER(psw) 

SELECT 3 

APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTIONS’ 
REPLACE progname WITH add info, logdate WITH DATE( ) 
REPLACE logtime WITH TIME( ) 

ENDIF 

CLEAR 

CLOSE DATABASES 

RETURN 


peeor add info 
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HHHHHH HHH HMM HH MMM OH OH PROGRAM ADD DEST HHHHHHHH HHH MH HHH HHH OH OH OK 


* This program inserts record to DESTRUCT file and update the 
* USERLOG file 


CLEAR 

SET TALK OFF 

* open required fites Tor precessine 
SH LE Ci wal 

USE destruct INDEX dcontrol 

Spee i 72 

UsSteuUser 1a 

SELECT 3 

USE userlog 


display a window on the screen 
8,20 SAY 
OF 20" SAY 
10,20 SAY 
11,20 SAY 
12,20 SAY 
13,20 -SAx 
14,20 SAY 
T5520 SAY 
16,20 SAY 
SORE = YY sfOvagdecont 
STORE .F. TO done 
DO WHILE UPPER(add_cont) =’Y’ 
@ 9,23 SAY ’ADD NEW RECORD TO DESTRUCT FILE” 


~~ «= w w= w= w w = w= 
w = OD = Ld a J = eo 


BOQ OQQOQH OHS *t 


* initialize memory variables 


SOR j TO° CC t7 aime 

SPORE " TO, ts iti eile 

STORE ” , TO td dave 

@ 15,25 SAY ’ENTER CONTROL # =>: ’GET tctrl_no PICT (ee 
READ 

Sere st 

FIND &tcur Penne 

IF EOF( ) 


* record does not exist in the DESTRUCT file 
* read User s input 

CLEAR 

@ 09,15 TO 15,60 DOUBLE 

@ 11,23 SAY ’*CONTROL NUMBER: ’GET tctrijgime 


@ 12,23 SAY ‘SHORT. PERE: : *GET “ts Steere 
@ 13,23 SAY ’DATE DESTROYED: ’GET td_date PICT ’99/99/99’ 
READ 


*append new record to DESTRUCT file 
APPEND BLANK 
REPLACE ctrl_no WITH tctril_no, s_titie WITH )ts33gam 
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REP PAGHwaudesuruct WiTH CrOD( td date ) 
STORE .T. TO done 
* control number exist in the DESTRUCT file 
ELSE 
SET COLOR TO W* 
@ 15,25 SAY ”’ RECORDS ALREADY EXIST’ 
DO delay 
SET COLOR TO W 
ENDIF 
SET COLOR TO W+t 
emo ,cd SAY ” MORE INSERTIONS? (Y/N)==>: ”’ 
READ 
SET COLOR TO W 
SET CONSOLE OFF 
Weel TO add_cont 
SET CONSOLE ON 
ENDDO 


* update USERLOG file 

IF done 

SebeECr 2 

LOCATE FOR PASSWORD = UPPER(psw) 

SBELECT 3 

APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTION’ 
REPLACE progname WITH ’INS DEST’, logdate WITH DATE( ) 
REPLACE logtime WITH TIME () 

ENDIF 

CLEAR 

CLOSE DATABASES 

RETURN 

oeeo. add dest.prg 


HHHHHHHHHHHHH HH HHH HK PROGRAM MOD PUB HM HH HM HHH HH OH HH OH HH OH OH OH OH OH OH OH 


* This program modifies records in the PUBS file and updates 
* USERLOG file 


CLEAR 

SET TALK OFF 

* open required the files for processing 
SECECT 1 

USE pubs INDEX control 
PeeeCl 2 

USE userid 

Seioecl 3 

USE userlog 

STORE .F. TO done 
eIOme *Y’ TO modicont 


Srieee rl 1 
DO WHILE UPPER(modicont) = ’Y’ 
STORE ”’ oo Opeee eho 


o1 


display window on the screen 
4,20 SAY *WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwww 
a ,c0 oAL 9s : 
6. 20 oA Ya WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwwwwww 
7G che et 
S20 ok 
9,20 SAY *: 
LO. 20S A Yate: 
ll Zoe Shi. 
LZ ZO eS Ate 
Ls 2OP SAY 
ae AeY Se 
T5220) SAY 
16,20 SAY *WwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwww 
5,26 SAY ’MODIFY RECORDS IN PUBS Fite 
15,26 SAY ’ENTER CONTROL NUMBER =>’GET tctrl nor aa 
99999’ 


OHO QQ QOH OO HAN #OHOQNNH OS * 


READ 


* check if record to be modified exist in PUBS file 
FIND &tctrl_no 
LE ee NOt. HORT) 

* initialize memory variables 

STORE s title: “LO tse Gisele 

STORE locker TO tlocker 

STORE class TO tclass 

STORE update TO tupdate 

SPORE “subvcust TOStGuomeus ¢ 


= Treads User 7S .4 dour 
CLEAR 


@ 2,05 TO 14,74 DOUBLE 

@ 4,25 SAY ’MODIFYING PUBS FILE’ 

@ 5520 SAY TF HHHHHHHHHHHHHHH HH MH? 

@ 7,20 SAY ’CONTROL NUMBER:” GET tctr ime 
@ S,20 SAY, “SHOR? Terre " GET tsSGe tre 

@ 9,20 SAY *’LOCKER NUMBER :’ GET tloecker 

@ 10,20 SAY ’CLASSIFICATION:’ GET tclass 

© 11,20 SAY “LAS? UPDATE ’ GET tupdate 

@ 12,20 SAY ’SUB-CUSTODIAN :’ GET tsub_cust 
READ 


* replace changed fields 

REPLACE s_ title WITH ts _ title, locker WITH Clocks 
REPLACE class WITH tclass, sub_cust WITH tsub meus 
REPLACE update WITH tupdate 

SLORE .1-. £0 done 


* record to be modified does not exist in PUBS file 


ELSE 
SET COLOR TO W* 
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, 


we = we “ J < — “~ —~ ww ~ —< 


Cealtoeezo oAY “RECORD DOES NOT EXIST IN DATABASE’ 


DO delay 
SLi eCOrok TO W 
ENDIF 


CP Loco OAL” , 
@ 15,25 SAY ’MORE MODIFICATION? (Y/N)==>:’ 

SET CONSOLE OFF 

WAIT TO modicont 

SET CONSOLE ON 


CLEAR 
ENDDO 
* update USERLOG file 
IF done 
SeLECT 2 
LOCATE FOR password = UPPER(psw) 
SELECT 3 


APPEND BLANK 
REPLACE username WITH B->username, task WITH ’MODIFICATION’ 
REPLACE progname WITH ’MOD PUB’, logdate WITH DATE( ) 
REPLACE logtime WITH TIME( ) 

ENDIF 

SET TALK ON 

CLEAR 

CLOSE DATABASES 

RETURN 


* eof mod_pub.prg 
HHHHHHHHHHHHHHH HH HM OK PROGRAM MOD INFO.PRG HHHHHHHHHHKH HHH HHH HK 


feemis Program modifies records in the PUBSINFO file and 
* updates USERLOG file 


CLEAR 
Seis TALK OFF 
Seopen required files for processing 
Seber 1 
USE pubsinfo INDEX ps_title 
SELECT 2 
USE userid 
SELECT 3 
USE userlog 
STORE .F. TO done 
STORE ’Y’ TO modicont 
pe LECT 1 
DO WHILE UPPER(modicont) = ’Y’ 
STORE ”’ . lOmvs=<tititle 


* display a window on the screen 


Cee 2c SAY ’ WWW ’ 
Ome, 20 SAY °: aes 
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Gy clk > AY 


MODIFY RECORD IN PUBSINFO FILE ’ 
ENTER SHORT TITLE =>:”* GED tsiicaaeake 


DO QH QOH OOH OHH OHH®SD 
— 
DO 
NO 
© 
NY 
> 
K< 


O14 7 46854) oe : : 
* check if record to be modified exists in PUBSINFO file 
PINDY ets PGi mite 
IF .NOT. EOF() 
* record exists in PUBSINFO file 
* initialize memory varHvaptes 
SIORE Detitie TO tl . tagete 
STORE allowance TO tallowance 
STORE onboard TO tonboard 
SIORE dociutype 10 tdoceuype 


* read user’s data from keyboard 

CLEAR 

2; 05m LO 13,749 DOUBEE 

4,25 SAY ’MODIFYING PUBSINFO FILE’ 

ooo SAY 7HHHHRHHKN HHH KHHHNHHHHKHHHHH KK? 

7,10 SAY "’SHORT TITLE: Vert tse iite 

S,10 SAY “LONG TITER :"°VGEl Clete aie 

9,10 SAY ’ALLOWANCE :’ GET tallowance 

10,10 SAY ’ONBOARD ’ GET tonboard 

11,10 SAY *°DOC. TYPES: [GE t(docihtype 

READ 

* replace change fields 

REPLACE 1 title WITH tl_title, allowance WITH tallowamas 
REPLACE onboard WITH tonboard, doc _ type WITH tdo0c Gime 
STORE .7T: TO done 


BOQQQOOHOH|A 


* record to be modified does not exist in the PUBSINFO file 
ELSE 
SET COLOR TO W* 
@ 14,22 SAY ’RECORD DOES NOT EXIST IN THES ees , 
DO delay 
SET COLOR TO W 
ENDIF 
OO 14.22 sA Ye MORE MODIFICATION? (Y/N)=)>: : 
SET CONSOLE OFF 
WAIT TO modicont 
SET CONSOLE ON 
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< “ < ws “= “ “ ~@ < = @ 


CLEAR 


ENDDO 

meupdate USERLOG file 

IF done 
SELECT a2 
LOCATE FOR password = UPPER(psw) 
Seeker 3 


APPEND BLANK 
REPLACE username WITH B->username, task WITH ’MODIFICATION’ 
REPLACE progname WITH ’MOD INFO’, logdate WITH DATE( ) 
REPLACE logtime WITH TIME( ) 

ENDIF 

SET TALK ON 

SEEAR 

CLOSE DATABASES 

RETURN 


* eof mod_info.prg 


HHHHH MMMM HM HHH MH MH HM PROGRAM DEL PUB MHRMHHMHMHMHMMH MH MMH HMM MMMM KH HH 


* This program deletes records from the PUBS and PUBSINFO files 
* and also update teh USERLOG file 
CLEAR 

SET TALK OFF 

* open required files for proccessing 
SELECT 1 

USE pubs INDEX s_title 

SeebCT 2 

USE pubsinfo INDEX ps_title 

SeueCT 3 

USE userid 

SELECT 4 

USE userlog 


display a window on the screen 
4,20 SAY °’ 
meeO SAY ’ 
6,20 SAY * WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwwww 
wecO DAY ’ 
8,20 SAY ’ 
9,20 SAY ’ 
moe20 SAY ” 
ire20 SAY ’ 
meee SAY ’ 
moc SAY ” 
14,20 SAY ’ 
moe SAY ’ 
16,20 SAY ”’ 


DBO QOH QQ QOH DN ONAN SD * 


’ 
’ 
’ 
’ 
9 
’ 
5 Ss 
? 
’ 
’ 
’ 
’ 
’ 


WWWWWWW WWW WW WW WW WWW WWW WWWWWWWWWWWWWWWWWWWWwWwnwnww 
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SUVOREW  Y¥") £0) deletecome 
SLORE OF TOmcounti.4 count 
STORE .F2 107 done 
DO WHILE UPPER(deletecont) = ’Y’ 
@T.e2 oA g 
@ 5,22 SAY ’DELETE RECORD FROM PUBS AND PUBSINEFO Fie 
S Om te ’ TO tse tare 
@ 15,21 SAY ’ENTER SHORT TITLE =>:;” GET tobe 
READ 
* check if the record to be deleted is in the PUBS file 
SELECT wi 
FUND ats. tite 
IF .NOT. EOF( ) 
* record exist in the PUBS file 
* ‘display record to be wemtewcea 
CLEAR 


@ 2,05 TO 13,74 .D0UR EE 

@ 4,20 SAY ’ DELETING RECORDS FROM THE PUBS 2a 
@) D220 SAY ’ HHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH OH , 
@ 7,23 SAY *CONTROL NUMBER °° GED Vetr Bae 

@ &;,23 SAY “SHORTS? Pern ’ GET Vs st eeite 

@ 9,23 SAY ’LOCKER NUMBER :” GED) foecker 

@ 10,23 SAY ’CLASSIFICATION:’ GET class 

@ 11,23 SAY LAST URpate ’ GET update 

@ 12,23 SAY *’SUB-CUSTODIAN :” GED sup ecusy 

READ 


* user ensure it is the record to be deleted 
@ P54 oAL ; 

@ 15,21 SAY ’CONFIRM DELETIONS (Y/N)? ==5)ee 
SET CONSOLE OFF 

WAIT TO confirm 

SET CONSOLE ON 


* delete the record from PUBS file 
IF UPPER(confirm) = ’Y’ 

DEVE we 

STORE .f. 10 dome 

STORE counti + 1 TONcounte 


* delete the record from PUBSINFO file 
SELECT) 2 
PAND eb Std tle 
EE 2NOTseE ORT) 
DELETE 
STORE count2 +1 count2 
ENDIF 


* do not delete record from PUBS file 


ELSE 
STORE...’ .E” TOsdeletecoens 
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CLEAR 
ENDIF 


* record to be deleted does not exist in database 
BLUSE 
@Vls 40 SAY ’ : 
Ceo 2 te oAY RECORD DOES NOT EXIST IN DATABASE’ 
DO delay 
Ome oe oo) GAY. ” 
ENDIF 
Omlo, ot SAY ” MORE DELETIONS? (Y/N) =)>:”’ 
SET CONSOLE OFF 
WAIT TO deletecont 
SET CONSOLE ON 
CLEAR 


ENDDO 


* pack database files for permanent deletion of files deleted 
* previously by the program 


SELECT 1 
IF countl # 0 


@m2,20 SAY ”® DATABASE FILES ARE IN THE PROCESS OF BEING’ 
@ 13,20 SAY ”’ PACKED AND REINDEXED. ’ 
@mr5,20 SAY ”® Please be patient. It may take a while’ 
PACK 
SELECT 2 
IF count2 # 0 
PACK 
ENDIF 


ENDIF 
CLOSE DATABASES 


* update USERLOG 
IF done 


SELECT 3 

USE userid 

LOCATE FOR PASSWORD = UPPER(psw) 

SELECT 4 

USE userlog 

APPEND BLANK 

REPLACE username WITH C->username, task WITH ’DELETION’ 
REPLACE progname WITH ’DEL PUB’,logdate WITH DATE () 
REPLACE logtime WITH time( ) 


ENDIF 

SET TALK ON 
CLEAR 

CLOSE DATABASES 
RETURN 


aeeert del pub.prg 
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b. Report Sub-tvenu 


##H HHH KHKHHKNHHKHHNHH HHH KH HM HK PROGRAM RPTMENU HH HH KHHHKHKNHKHKHKHKNMKHH HHH KM HH MOK 


* This program displays on the screen the database Prepare 
* generator sub-menu. 


CLEAR 

PUBELESrpvecde 

SlORE 0 TO rotecde 

@ 2,14 SAY ’WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWww 
@ 3,14 SAY ’mm mm’ 
@ 4,14 SAY *WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWew 
SET COLOR IO W* 

@ 3,20 SAY ’DATABASE REPORT GENERATOR MENU’ 

SET COLOR TO W 


@ 6,14 SAY *WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWww 
@ 1°71 4 eS AY : 
@ 8,14 SAY ’ 1. ALLOWANCE LISTING OF PUBLICATIONS : 
@ 9,14 SAY ” 2. ALPHABETICAL LISTING OF PUBL TCA. , 
@ 10,14 SAY ’ 3. LIST OF PUBLICATIONS BY LOCATITGN: : 
@ 11,14 SAY ’: 4. LIST OF PUBLICATIONS BY SUB-CUSIOnDs : 
@ 12,14 SAY ’: 5. LIST OF DESTRUCTION Eee. pe : 
@ 13,14 SAY *’: 6. EXE)? TO eee VEN , 
@ 14,14 SAY ’ : 
@ 15,14 SAY ~ s 
@- 16514 SAY 7; es 
@ 17,14 SAY ’wwwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWw 


SET COLOR TO W+ 

@ 16,16 SAY ’ENTER CHOICE =>:’ GET rptcode PICT ’9’ RANGHIaae 
READ 

SET COLOR TO W 

RETURN 


* eof rptmenu.prg 


HH KH HHH KNHKHHNHNHHHNHNH MN MN MN KH HK PROGRAM REPORT H##HHNHHHKHKHKHHNHHNHKHHHNHHHNHHH HH HH 


CLEAR 
STORE ”’ TOF ptecon t 
PUB ELC “pa tecocde 
DO WHILE rptcont # ’n’ 
DOr pEMme nw 
DO CASE 
CASE rptcode = 1 
DOs tat 
CASE rptcode = 2 
DOV ti si 2 
CASEVrpltcoaces— a3 
DO list 3 


08 


CASE rptcode 


DOMia st. 


CASE rptcode 


DO list_ 


CASE rptcode 
SORE een 
ENDCASE 
ENDDO 
RETURN 


* eof report.prg 


= 4 
At 
= 5 
5 
= 6 
* TORRE tcont 


(1) LISTING/REPORT PROGRAMS 


HHMHMHHHHHHHHHHHHHHH DDOGRAM LIST 1 


HM HE HE ME EH HH OH 


* This program provides screen display or printer output of the 
* total number of publications that are on the allowance list 
* against what is onboard by document type. 


CLEAR 

SET TALK OFF 

ORs .F. TO printe 
alOrRE ° ° TO done 
STORE ’ ’ TO ans 
USE pubsinfo INDEX 
DO WHILE UPPER(done 
3,10 TO 9,65 


(OROR SOR) 


r 


doc_type 
) # °N’ 
DOUBLE 


mee) oAY © PRINTER = P 
BeeO0 SAY ’ SCREEN = §S 
eee SAY °° ENTER S OR P = 
READ 
IF UPPER(ans) = ’P’ 
prOkbewe 1. TO printer 


CLEAR 


4,20 SAY ’ DO YOU WANT TO PRINT OUTPUT ? 


GET ans 


@ 15,20 SAY ’TURN YOUR PRINTER ON’ 


WAIT TO cont 


ENDIF 

SORE ° ’ TO choice 

CLEAR 

Cae, > 10 TO 16,65 DOUBLE 

9,21 SAY ’ 

@ 11,21 SAY ’ secret = S$ 
ele, 21 SAY ’ Intelligence 
Gers ,21 SAY ” NTP/ATP Pubs 

@ 15,25 SAY ’ENTER CHOICE ==»);’ 
READ 


Sone ia tah sDOCUMENT TYPE 
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I 
P 


ww we w 


GET choice 


9 


9 


? 


Le printer 
DO CASE 
CASE UPPER( choice pace 
SET PRINTER ON 


REPORT FORM listl FOR doc type =a Src 
SET PRINTER OFF 

CASE UPPER(choice) = ’I’ 
SET PRINTER ON 
REPORT FORM listi FOR doc type =e iiitai 
SET PRINTER SOE 

CASE UPPER(choice) = ’P’ 
SET PRINTER ON 
REPORT FORM list1 BOR doci type =a 
SET PRINTER OFF 

ENDCASE 
BESE 
DO CASE 

CASE UPPER(choice) = ’S’ 

REPORT FORM listi FOR doc_type = "SECRET" 
9 

WAIT TO cont 

CASE UPPER(choice) = ’I’ 
REPORT FORM listi FOR doc type —) fait 

? 

WALT TO—cone 

CASE UPPER(choice) = ’P’ 

at f NWP 


REPORT FORM listi FOR docmeyvpe 
17 


WAIT TO Cont 


ENDCASE 
ENDIF 
GO TOP 
CLEAR 
STORE * ~*~ 10 -all done 


@ 15,20 SAY °® DO YOU WANT TO SEE CRe@PE 
@ 16,20 SA) Viet Elo hcGea ie : 
@ 18,20 SAY ’ ENTER "Y" OR "N" =>:” GET alledome 
READ 
IF UPPER(all_done) oy 
STORE ’N’ TO done 
ENDIF 


ENDDO 


CLEAR 
CLOSE DATABASES 
RETURN 


*eot Igo t lpi 


HH 0 HE EH OH HHH OHH HOH OH PROGRAM Las Zo 4 9 Ht OH OE OH OE OHO OOH OHHH OH OH OH 
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mitrs Dprogrram provides display or printer output of the 


* publications in an alphabetical order. 


aeebong title 


CLEAR 

se TALK OFF 
SIORE .F. TO 
SORE ’ * TO 
SORE *® * TO 


USE pubsinfo 


DO WHILE UPPER(done) # 


short title and 


pr ide 

done 

ans 

INDEX ps_title 
oN” 


Cee) TO 9,65 DOUBLE 

Wee oAY — YO YOU WANT TO PRINT OUTPUT 7? ’ 
Ceo, eo0 oAY ~ PRINTER = P ; 
@ 6,20 SAY ”’ SCREEN = S ; 
@ 8,25 SAY ’ ENTER S OR P =):’ GET ans 

READ 


IF UPPER(ans) = 


STORE 
CLEAR 


@ 15,20 SAY 


7p” 


JtmelO printer 


"TURN YOUR PRINTER ON’ 


WAIT TO cont 


ENDIF 


Pio rinter 


SET PRINTER ON 
REPORT FORM list2 
SET PRINTER OFF 


ELSE 
CLEAR 


REPORT FORM list2 
Wal | hkO ‘cont 


ENDIF 
GO TOP 
CLEAR 
STORE ’® ° 


TO all done 
@ 15,20 SAY ° 
meio ,20 SAY ’ 


DO YOU WANT TO SEE OR PRINT ’ 
THE LIST AGAIN ’ 


eso ,c0 oAY © ENTER “Y" OR "N" =>:’ GET all done 
READ 
IF UPPER(all_ done) # ’Y’ 
STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 
CLOSE DATABASES 
RETURN 
econ List 2.prg 


HHHHMNHNH HHH HMNMM HHH MH HM PROGRAM LasSsT 3 HHHHHHHHNHHHHHHH HHH KH HH OK 


CLEAR 
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SET TALK OFF 
STORE §.F . lO eor im ter 
STORE ’ ’ TO done 
STORE ’ ’ TO ans 
USE pubs INDEX locker 
DO WHILE UPPER(done) # ’N’ 
@ 3,10 10°59, Gos voUbeE 
@ 4,20 SAY ”* DO YOU WANT TO PRINT OCUTPUR 
@ 5,20 SAY “SPRINTER : 
@ 6,20 SAY VsCRpenN ys : 


O- 5S, 29 vane ENTER S OR P =>: ©) GEaans 
READ 
IF UPPER(ans) = ’P’ 

STORE .7T]@8G) princer 

CLEAR 


@ 15,20 SAY *® TURN YOUR PRINTER VC 
WAIT TO cont 
ENDIF 
IF printer 
SET PRINTER ON 
REPORT FORM list3 
SET PRINTER OFF 
ELSE 
CLEAR 
REPORT FORM list3 
WAIT TO cont 
ENDIF 
GO TOP 
CLEAR 
SlOKE +) Gea! Pedene 
@ 15,20 SAY ”’ DO YOU WANT TO SEE OR PRINT ’ 
@ 16;20 SAY. * THE Lisl AGA 
@ 18,20 SAY ”* ENTER "Y" OR "N" (=>: GET 22 iGo 
READ 
If UPPER(all_ done) a ae 
STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 
CLOSE DATABASES 
RETURN 


*TeOh! Laat o.pne 


H# xX HHH HHH HHH HHH HH HH HH OH OH OH PROGRAM List 4 H#H# HHHH HHH HH HM HH HOH OH 


* This program provides display or printed output of the 
* publications by classification 


CLEAR 
SET TALK OFF 
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Sok wee. 1O printer 

SORE * “ TO done 

SPORE © *® TO ans 

USE pubs INDEX class 

DO WHILE UPPER(done) # ’N’ 
CLEAR 
Cees, 0 TO 9°65 DOUBLE 
Ce, cO SAY ~ DO YOU WANT TO PRINT OUTPUT 7? ’ 
Ceo cOeSAY © PRINTER = P , 
@ 6,20 SAY ’ SCREEN = S ; 


Ceo, 2o SAY PRPER@e OR P =>: ”’ GET ans 
READ 
IF UPPER(ans) = ’P’ 

SORE. .f.°-fO° printer 

CLEAR 


Ceeon 2 U0 oie TURN YOUR =PRINTER ON. ’ 
WAIT TO cont 
ENDIF 
be printer 
Se leeRINT ON 
REPORT FORM list4 
SET PRINTER OFF 
pS 
CLEAR 
REPORT FORM list4 
WAIT TO cont 
ENDIF 
GO TOP 
CLEAR 
SpoRE ©“ © TO all done 
Geto, 20 SAY * DO YOU WANT TO SEE OR PRINT ’ 
emo ,2O SAY * THE LIST AGAIN °’ 
feeloecowonr = ENTER "Y¥" OR “N" =>:” GET all done 
READ 
mEUPPER(all done) # ’Y’ 
STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 
CLOSE DATABASES 
RETURN 


pecot list 4.prg 


HHHHHRNHRHRHHHRHMRHHR HHH HHH PROGRAM LIST 5 HHHHHHRKMNHHHRKHHHHRHHHHH HHH HH KH 


mews program provides display or printer output of the 
* destruction record file 


CLEAR 


SET TALK OFF 
Sukh .F. TO printer 
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STORE ~"= “TO= dene 

STORE ’” ’ TO ans 

USE destruct INDEX date 

DO WHILE UPPER(done) # ’N’ 
CHEAK 


@ 3,10 20 9765) DOUBTS 
@ 4,20 SAY *® DO YOU WANT TO PRINT SOU 020 tee 
@ 65,20 SAY ~ SeRINELR ee : 
@ 6,20 SAY ’°’ SCREEN = §& : 
@ 8,25 SAY ”’ ENTER S OR P =>: GH. 
READ 
IF UPPER(ans) = ’P’ 

S LORE. 2ts, 1Olprimter 

CLEAR 


@ 15,20 SAY °® TURN YOUR PRINTER WON 
WAIT TO cont 
ENDIF 
Pepi pater 
Sleek EN EON 
REPORT FORM listd 
SET PRINTER OFF 
ELSE 
CLEAR 
REPORT FORM listd 
WAIT TO cont 
ENDIF 
GO TOP 
CLEAR 
STORE ~~ —- LOmal adione 
@ 15,20 SAY ”* DO YOU WANT 70, SEE OR VELL 
@ 16,20 SAY * THE Lisl ace 
@ 18,20 SAY ” ENTER "Y¥" OR "NY =). 7° 9GEI aliaeaeae 
READ 
IF UPPER(all_ done) # ’Y’ 
STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 
CLOSE DATABASES 
RETURN 


eTeQf lS e.05 .pe ge 
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c. Adhoc Sub-Menu 


HH HHHHHHKH HHH HM HH MH HH OH OH PROGRAM HOCMENU ve dE HE HE HE OE OE EH OE OE OE OE OE OE OE OE OE OH OE OE OE OH 


* This program display on the screen the adhoc sub-menu 


SLEAR 

SET TALK OFF 

PUBLIC adhocode 

STORE O TO adhocode 

@ 5,18 SAY ’wWwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWVw ” 
Cmeo.,lS SAY ’: oa 
@ 7,18 SAY ’wWwwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWwww ” 
SET COLOR TO W* 

Cmeo,30 SAY ’ DATABSE ADHOC MENU ”’ 

SET COLOR TO W 


@ 8,18 SAY ’mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ’ 
@ 9,18 SAY ’: oe 
@mv0,18 SAY ’” Pe eLOCATION OF SPECIFIC PUBLICATION : 
@ 11,18 SAY ”’ 2. SUB-CUSTODIAN OF A PUBLICATION : 
Clee, 1S SAY ’ 3. ALLOWANCE OF SPECIFIC PUBLICATION : 
Gee. tS& SAY ’ 42. CLASSIFICATION OF SPECIFIC PUBLICATION ; 
@ 14,18 SAY ’ Waist Oe DATE OF CERTAIN PUBLICATION : 
@ 15,18 SAY ’ 6. EXIT TO MAIN MENU : 
(ero, 18 SAY ’ : 
Olee?7. 1S SAY ” ; 
@ 18,18 SAY °’: 4 
@ 19,18 SAY ’wWwwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWww ” 


SET COLOR TO W+ 

femmes SAY “ENTER CHOICE =>:’° GET adhocode PICT ’°’9’ RANGE 1,7 
READ 

SET COLOR TO W 

CLEAR 

SET TALK ON 

RETURN 

* eof hocmenu.prg 


HH HHHHHHHHHH HHH HH OHH PROGRAM ADHOC 4 34 HE OE OE OH OE OE OE OO OE OHO OE OO OE OE OE OE OH OE OH OH 


* This program call the proper adhoc program selected from the 
* adhoc sub-menu by users 


CLEAR 
STORE ’ ’ TO adhcont 
PUBLIC adhocode 
DO WHILE adhcont # ’n’ 
DO hocmenu 
DO CASE 
CASE adhocode = 1 
DO adhoc_1 
CASE adhocode = 2 
DO adhoc_2 
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CASE adhocode = 
DO adhoc 3 
CASE adhocode = 
DO adhoc _ 4 
CASE adhocode = 
DO adhoc_5 
CASE adhocode = 
SORE. un 
ENDCASE 
ENDDO 
RETURN 


* eof adhoc.prg 


3 


4 


5 


6 
10: “adhe one 
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(1) ADHOC PROGRAMS 


HHHH HHH HHH HHH HH HOM HH PROGRAM ADHOC 1 HHHHHHHHHHHH HHH KM HHH HHH OH 


* To accept a specified publication and provide their locker 
Pelocation 


CLEAR 
SET TALK OFF 
@ 4,10 TO 13,69 DOUBLE 


@ 6,18 SAY ”’ The purpose of this adhoc function # 1 is’ 
emer nlo SAY *°to locate a specific publication for the user.’ 
@ 8,18 SAY ’The user must provide the exact short title ; 
@ 9,18 SAY ’of the publication as previously enter in the’ 
@ 10,18 SAY ’database. Otherwise the search will be un- 
Qeieeets SAY successful and frustrating. ' 
? 
Z 
WAIT TO cont 
CLEAR 

* open required files for processing 
Sobecr 1 
Moeepubs INDEX s title 
SELECT 2 
USE userid 
SeeECcr 3 


USE userlog 
morRr .-F. TO done 
seme “Y’ TO adhocl 


SELECT 1 
DO WHILE UPPER(adhoc1) =’Y’ 
ACCEPT ’“ENTER SHORT TITLE : ; 10 Ss sb ble 


PrND &s title 
IF .NOT. EOF () 
©LEAR 
Cm 705 SAY * SHORTsTITLE ’ 
@e7,30 SAY ° LOCKER # °’ 
DESPLAY s_ title, locker 
DO delay 
ELSE 
SET COLOR TO W* 
Qe. sn)  §NO SUCH SHORT TITLE ’ 


DO delay 

eet COLOR TO wW 
ENDIF 
emery, 29 SAY * MORE INQUIRY? (Y/N)==>:’ GET adhoci 
READ 


SET CONSOLE OFF 
MATT TO achocl 

SET CONSOLE ON 

CLEAR 


Oo” 


ENDDO 

CLEAR 

SET TALK ON 
RETURN 


x e€Ol AGC m a vole™ 


HH HKHRKR MH M HHH RRR RK HK PROGRAM ADHOC 2.PRG HH HKHHHMNMHHHHHH HK HK HM 
* This program accepts short title of a specific pub! lean 
* and provide the user the name of the current sub-custoegiaw 


CLEAR 

SEL TALK OE 

@~ 4-5 10° TO 13769 WOU LE 

6,18 SAY ’The purpose of this ADHOC function # 2 iG 
7,18 SAY ’locate the current sub-custodian of a speciiames 
8,18 SAY ’publication. The user must provide the e€xaete 
9,18 SAY ’short title of the publication as previouaies 
10,18 SAY ’enter in this database. Otherwise the search 
11,18 SAY ’will be unsuccesiul and frustrate 


YVOOHOOLOH®D 


WAIT TO cont 
CLEAR 


SORE 1. i. 7!) O.-aone 
STORE. yy". GO  adhoec 
DO WHILE UPPER( adhoec2 jy = aa 
ACCEPT ’ENTER SHORT TITLE: ” TO s theme 
DSE pubs (INDEX “sti tre 
FIND SS -ERiLe 
iP NOT. “EO 
DISPLAY Ss -tiltie. subpmeust 
DO delay 
Pits 
Set COLGR (10° WwW 
@ 15,25 SAY ”’ NO SUCH SHORT Piles 


DO delay 

Sel "COLOR TO sw 
ENDIF 
@ 15,25 SAY ’ MORE INQUIRY? (Y/N)==>:” GED adhoee 
READ 


SEL CONSOLE OFF 
WAIT TO adhoc2 
sel CONSOLE ON 
CLEAR 

ENDDO 

CLEAR 

SET TALK ON 

RETURN 
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* eof adhoc 2.prg 


HHHHHKHHHHHHKHHKHHKHH HH MH PROGRAM ADHOC 3 HHHHHHHHHKHRHHHKHRHKHHHH HHH HK 


* This program accepts short title of a specific publication 
mena provide the user the current allowance and current 
seeonboard inventory. 


CLEAR 

SET TALK OFF 

Pex T 
The purpose of this ADHOC function # 3 is to provide 
SHErenMe allowance VS current inventory of a specified 
bepteaclon. The user must enter the exact short 
title of the publication. 

EN DT EXT 

Melt TO cont 

PEAR 


Smoke .F. TO done 
STORE ’Y’ TO adhoc 
DO WHILE UPPER(adhoc) = ’Y’ 
meee rs ENTER SHORT TITLE: *° TO s_ title 
USE pubsinfo INDEX s_title 
meND &S title 
IF .NOT. EOF () 
Mise LAY vss titie, allowance, onboard 
DO delay 
ELSE 
SET COLOR TO W* 
Geez owony NO SUCH SHORT TITLE ’ 


DO delay 

SET COLOR TO W 
ENDIF 
@ 15,25 SAY ’ MORE INQUIRY? (Y/N) ==>:’ GET adhoc 
READ 


SET CONSOLE OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 

ENDDO 

CLEAR 

SET TALK ON 

RETURN 


feo adhoc 3.prg 


HHHHHHHHKHHKHKHHKHHKHHKH HHH OK PROGRAM ADHOC 4.,.PRG HHHHHHHHHHKHRKHKHKHKHHKH HK HK 
* This program accepts short title of a specific publication 
Peomo provide the user the classification category in return 


69 


CLEAR 

SET TALK OFF 

Te 
The purpose of this ADHOC function # 4 is to give the 
classification category of a specific publication =e 
user must provide the exact short title of the pubiitjeaguaes 
as previously enter in this database. Otherwise the search 
will be unsuccessful. 

ENDTEXT 

WAIT TO cont 

CLEAR 


SORE, . 1 .s10 saone 
STORE ’Y’ TO adhoc 
DO WHILE UPPER adhoc a 7. 
ACCEPT “*ENTER SHORT TITLE: St Gee2 2 are 
USE pubs INDEX s title 
FIND es -ti tile 
IF .NOT. EOF () 
DISPLAY s- title. ciacs 
DO delay 
ies i 
sil COLOR. TO We 
@ 15,25 SAY ® NO SUCH SHORT Tl Tlie 


DO delay 

SET COLOR TO W 
ENDIF 
@ 15,25 SAY ’ MORE INQUIRY? (Y/N )==>: ’GET adhoc 
READ 


SET > CONSOLE. OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 

ENDDO 

CLEAR 

SET TALK ON 

RETURN 


* eof adhoc 4.prg 


HHHRHRHHRKHRKHHHHH HHH HH HH PROGRAM ADHOC 5 HE FE HE HE FE HE OE HE HE OE HE HE HEH HH OH HH OH HK 


* This program accepts short title of a specific publicatiag 
* and provide the last update made on this publication 


CLEAR 

SET TALK OFF 

TEXT 
The purpose of this ADHOC function # 5 is to provide the 
date of last update made on the specified publication. 
The user must enter the exact short title of the publi- 
cation as previously enter in this database. Otherwise, 
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the search will be unsuccessful. 
ENDTEXT 
WAIT TO cont 
CLEAR 


SrOoRE .F. TO done 
SHORE ’Y’ TO adhoc 
DO WHILE UPPER( adhoc) = ’Y’ 
eee’ ENTER SHORT TITLE: * TO s title 
USE pubs INDEX s_title 
me &s title 
PS NOT. EOF( ) 
Moral cseeltle, update 
DO delay 
ELSE 
SET COLOR TO W* 
@ 15,25 SAY ’NO SUCH SHORT TITLE’ 


DO delay 

SET COLOR TO W 
ENDIF 
feos SAY =~ MORE INQUIRY? {(Y/Nj)==>:’ GET adhoc 
READ 


SET CONSOLE OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 

ENDDO 

CLEAR 

oe TALK ON 

RETURN 

peeot adhoc 5.prg 
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qd. Help Sub-Menu 


dt 9 2 Ot Ht OE HE OH OE Ot OO OO OH OHO PROGRAM HPMENU HHHH HHH HK KH KH HHH HK OH HHH HK OK 


* This program display on the screen the Nelpeeu7 neo 
* called Dy DBPaUPyeRG 


CLEAR 

Sit lak ORE 

PUBLIC HELPCODE 

STORE 0 TO HELPCODE 

@ 6,20 SAY ’WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW ” 
ON a0 Pen 4 
@ 8,20 SAY ’WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWw ’ 
SET COLGR, TO -we 

@ 7,30 SAY ”* DATABASE HELP Net 

SET COLOR TO W 


@ 9,20 SAY ’mmmmmmmmmmmmmnmmmmnmmmmmmmmmmmmmmmmmmmmmmmmmmm ’ 
OQ 10. COMSAT 7 es 
Ot 1, 20a a 1. UPDATE, Bete : 
© 12,20 SAI = 2. REPORT Salter : 
@ 1372 0eon, 3. ADHOC VEE Er ; 
@ 14,20 SAY ’ 4. EXIT TO MAIN MENU : 
@ 15,205SAY : 
@ 16, 20754 ra : 
O17 g2ORSAY- ee 
@ 18,20 SAY *WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWw 


SET COLOR TO W+ 

@ 17,30 SAY ’ENTER CHIOCE =)>:’ GET helpcode PICT “99” RAG 
READ 

SEI COLOR 10°>-W 

SET TALK ON 

CLEAR 

RETURN 


* eof hpmenu.prg 


HH HHH HH HH HHH HH HHH HH HH HM HH PROGRAM DBHELP HHH HH HH HM HOM HHH HOH OH OH OH 


* Provide an online helper et eience. 
~ ‘cabled (by ; menu ors 


CLEAR 
SET TALK OFF 


OF 2 200 TOV 79 DOvB EE 


@ 4,20 SAY ”’ HH HH BERL Ee eee PP PP aaa 
@ 5 20 ESA ED HH eB [ee a ele 
QO O720) SA HHHHHHH ERE EEE ce I@igielele 
OW Fe UR ont ae HH HH Be Le Pak s 


Tee 


Cee ZO SAY ’ HH HH Pobbee ee LLLLL PP . 
@ 9,20 SAY ©" HHHHHKHKHHHHHHHHHHHHHHHKHHHHHH HHH HHH HHH ’ 
? 

? 

DO delay 

EXT 


The security manager inventory program will provide 
information of command’s classified publications. To 
Seewspecific information and guidance on each type of 
Mies teype Ene appropriate choice or task code number. 
The following information pertains to many of the reports 
and summaries: 


Attribute type # chars. Example 


CTRL_NO N 4 192 
SETITLE C ie NTP 4(G) 
mevITLE C 25 NAVAL COMMUNICATIONS PROC 
LOCKER N 1 3 
CLASS C 6 UNCLAS, CONF, SECRET 
UPDATE D z 05/20/86 
SUB_CUST C 10 PO2 SMITH, SCPO JONES 
ALLOWANCE N i 3 
ONBOARD N 1 3 
DOC_TYPE C 7 NTP/ATP, INTEL, SECRET 
ENDTEXT 
Pd 


“ 


WAIT TO cont 
STORE ’ Peo ne licont 
PUBLIC helpcode 
DO WHILE helpcont # ’n’ 
DO hpmenu 
DO CASE 
CASE helpcode = 1 
DOM Ve pe 
CASE helpcode = 2 
BO help. 2 
CASE helpcode = 83 
Le La 
CASE helpcode = 4 
STORE ’n’ TO helpcont 
ENDCASE 
ENDDO 
CLEAR 
RETURN 


* eof dbhelp.prg 


no 


(1) HELP PROGRAMS 


HH HH HHH HHH HHH HK KKK KOK PROGRAM HELP il) HHHH HHH HHH HHH HHH HK HOM HOH OKO 


* This program will provide an on-line help note for user 
* with regards to updating the databace 


CLEAR 
onl TALK Ort 
TEAT 


The "Update Database Menu" is divided into 6 edit choices 
Option 1 will allow the user to enter the new publieapewes 
into the PUBS.INFO file. You must provide the exact infor- 
mation to the database. Failure to do so will affect the 

effectiveness of the this system. The rest of the Jogi ae 
in this menu will be very similar to option 1 and witeigae 
simple if you just follow the instruction provided in the 
program. Wait for the prompt and enter the data with care. 


ENDTEXT 

WATT “bO™cont 
CLEAR 

SET TALK OFF 
RETURN 


Cre O fy Wel alors 


HH HHH HH HH KKH HKH HHH HK KM HK PROGRAM HELP 2 HHHHH HH HH HHH HHH HHH HH HH OH OK 


* This program will provide on-line help note with regan 
* “to tne Report venerator menu 


CLEAR 
SET TALK OFF 
Ener 


The "Report Generator Menu" provide five listing for the 
the user of this system. The first listing is the) .epae 
listing of publication sorted by document type and @tag 
by allowance vs onboard. The second listing is the "Alpha- 
betical Listing of all Publication". The third list #a 
the "Listing of of Publication Sorted by Locker Numbpemee 
The fourth listing is the list of "Publication Sorted 
Classification Types". Finally the "Destruction. ceems 
Sorted by Date". All these listings are formated inom 
report format (i.e., LIST_1.FRM) which could be modi 
easily with the assist query of the ¢d@BACu ae 
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ENDTEXT 


WAibe TO cont 
eLEAR 
RETURN 


fee or help 2.prg 


HH HHH HHH HHNHHHHKHHKH KK HH HM PROGRAM HELP 3 HHH HKHHHH HH HHH HHH HM HHH HHH OH 


* This program will provide an on-line help note with regards 
* to database adhoc menu. 


CLEAR 
SET TALK OFF 
TEXT 


The "Database adhoc menu" is divided into 5 adhoc queries. 
meter Makingwethe selection the user will prompt to answer 

question ask by the system. The adhoc programs were prov- 

ided to the users as sample queries that could valuable to 
ie user. 


ENDTEXT 

Yoon tO cont 
CLEAR 

RETURN 


mecor help 3.prg 


ve 


B. MISCELLANEOUS PROGRAMS 


HH HH HR KH HH HHH HHH KK KH OK OH PROGRAM FLAG * HH HH HHH HHH HHH HR KR KH HHH HH HK OK OK 


* This program displays the U.S. flag for the main prograw 
CLEAR 


1 Oe SA 
27 Or SAY 
3 LO SAY 
4,10 SAY 
5,10 SAY 
6, 10° SAY 
7 LOW SAY 
SLO mony 
9, WO SAY, 
MO LOsSsA 
iG:, ORSAY 


x 
x 
x 
x 
*x 
* 


x 
x 
x 
* 
x 
x 


x 
+ 
x 
x 
x 
x 


TS ae eee 
* * 
* * 
x * 
* * 
* * 


BH QH HOH HOO OHOH#A 


SET COLOR TO W+ 

PO Ee * TO pitaniks 
STORE ’ Oe pian 
3,28 GET blankl 

5,28 GET blankl 

7,28 GET blankl 

9,28 GET blankl1 

Lie.) 0 GET talanik2 

13,10 GEL bpank2 

5) VO eGbA «bp tam 2 

11,28 GE? blankt 

3.238 [Gee pia 

1526 (GE! “blank! 


BH QOH QOH HOH OHHH OS 


SET COLOR TO W 

@ 20,18 SAY “ UNITED ( SIATES NAVI ssn 
RETURN 

*-eot flag.pre 


HHHH HHH HH HHH HHH HHH HK PROGRAM HEADING HHHHHHHK HHH HHH HHH HHH HK HK OH 


* This program displays on the screen the program information 
*“headings 


Sel COLOR TOsw 
CLEAR 


@ 2,00 70 18) 7 7200UR ES 
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HHKHKHHHKRMHKHRHKHKRHMHMHHMHHHHKHKHHKHKHKHHMKHHHMHHHH OO? 


SECURITY MANAGER DATABASE SYSTEM ’ 
HH HH KNRKMRKMNMKNMKMHHKNMK KKM KHHKHKHKHKKHKNKKM KM HHH KN KM HMM CK , 

The Security Manager Inventory System is’ 
an “applications program design to support the’ 
followineractivitves: ” 

1. Provide publications listings by control,’ 


3,20 SAY 
4,20 SAY 
5,20 SAY 
6,15 SAY 
(2713 SAY 
Seo OAY 
mO,13 SAY 


= = w ws = = = ww = = = < = 


SAY HunCer shorn chile location, last update, ’ 
ieee DAY lassclimes ton and alphabetic listing.’ 
me,13 SAY Peat eovEGde sINrOrmnaLuton On specific publication. ’ 
14,13 SAY J rove LOLA MO. Of publications by locker.’ 
oe, tS SAY Peer OoylacndeSltruebiten records of publications. ’ 
Go,13 SAY 5. Answer Ad Hoc queries by the user.’ 


YVOHOGOHOHODHOH OH OHH OHHH SN 
} 
— 
js 
CO 


WAIT TO continue 


SET COLOR TO W 
RETURN 


* eof headings.prg 


HHHHKHHHKHHHKMH HK HKH KM KRH KH KM OHM PROGRAM DELA Y HHHHKKHKMKMKMKHKH KM KR KNHKM KKH KNH HH HM KM OM 


* This program provides a small delay necessary for displaying 
* various program messages on the screen. 


STORE QO TO k 

DO WHILE k < 100 
STORE k + 1 TO kK 

ENDDO 

RETURN 


feeot delay.prg 


aa 
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